525
FilterBarCaption AVAILABLE Keyword ( sample 2, result )

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

524
FilterBarCaption AVAILABLE Keyword ( sample 1 )

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "value + ` ` + available"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

527
FilterBarCaption ALLUI Keyword ( sample 2, result )

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

526
FilterBarCaption ALLUI Keyword ( sample 1 )

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "allui"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

529
FilterBarCaption ALL Keyword ( sample 2, result )

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

528
FilterBarCaption ALL Keyword ( sample 1 )

/*begin event InsertItem(long  Item) - Occurs after a new item has been inserted to Items collection.*/
/*
	any i
	oComboBox = ole_1.Object
	i = oComboBox.FormatABC("value + 1",oComboBox.Items.ItemToIndex(Item))
	oComboBox.Items.CellImage(Item,3,i)
*/
/*end event InsertItem*/

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oComboBox.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oComboBox.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oComboBox.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oComboBox.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oComboBox.FilterBarFont = oComboBox.Font
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "all"
oComboBox.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oComboBox.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oComboBox.Columns.Item(2).Filter = String(1)
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

534
Export Data in HTML format

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items,var_ShellBrowserWindow
any h,sFile

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.DrawGridLines = -1
oComboBox.HeaderAppearance = 4
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.FilterBarPromptType = 2
var_ConditionalFormats = oComboBox.ConditionalFormats
	var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*child*`","child")
		var_ConditionalFormat.ForeColor = RGB(255,128,128)
		var_ConditionalFormat.ApplyTo = 0
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*B*`","b")
		var_ConditionalFormat1.ForeColor = RGB(0,0,255)
		var_ConditionalFormat1.Bold = true
		var_ConditionalFormat1.Italic = true
		var_ConditionalFormat1.ApplyTo = 0
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		var_Column1.Def(4,15790320)
		var_Column1.Def(5,8421504)
		var_Column1.Def(8,var_Column1.Def(5))
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		var_Column4.Def(0,true)
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		var_Column5.Def(16,false)
		var_Column5.Def(17,1)
		var_Column5.Def(1,true)
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		var_Column6.Def(17,1)
var_Items = oComboBox.Items
	h = var_Items.AddItem("ParentA")
	var_Items.InsertItem(h,,"Child A")
	var_Items.InsertItem(h,,"Child B")
	var_Items.CellState(h,4,1)
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child C"),5,RGB(0,255,0))
	var_Items.ExpandItem(h,true)
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("ParentB")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child 3"),5,RGB(0,255,0))
	var_Items.CellState(h,5,1)
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
	var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
sFile = "c:/temp/export.html"
oComboBox.Export(sFile,"vis")
var_ShellBrowserWindow = CREATE OLEObject
var_ShellBrowserWindow.ConnectToNewObject("InternetExplorer.Application")
	var_ShellBrowserWindow.Navigate2(sFile)

533
Export Data in CSV format

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.DrawGridLines = -1
oComboBox.HeaderAppearance = 4
oComboBox.Description(11,String(oComboBox.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oComboBox.Description(11))))
oComboBox.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oComboBox.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oComboBox.FilterBarPromptType = 2
var_ConditionalFormats = oComboBox.ConditionalFormats
	var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*child*`","child")
		var_ConditionalFormat.ForeColor = RGB(255,128,128)
		var_ConditionalFormat.ApplyTo = 0
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*B*`","b")
		var_ConditionalFormat1.ForeColor = RGB(0,0,255)
		var_ConditionalFormat1.Bold = true
		var_ConditionalFormat1.Italic = true
		var_ConditionalFormat1.ApplyTo = 0
var_Columns = oComboBox.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		var_Column1.Def(4,15790320)
		var_Column1.Def(5,8421504)
		var_Column1.Def(8,var_Column1.Def(5))
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		var_Column4.Def(0,true)
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		var_Column5.Def(16,false)
		var_Column5.Def(17,1)
		var_Column5.Def(1,true)
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		var_Column6.Def(17,1)
var_Items = oComboBox.Items
	h = var_Items.AddItem("ParentA")
	var_Items.InsertItem(h,,"Child A")
	var_Items.InsertItem(h,,"Child B")
	var_Items.CellState(h,4,1)
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child C"),5,RGB(0,255,0))
	var_Items.ExpandItem(h,true)
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("ParentB")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child 3"),5,RGB(0,255,0))
	var_Items.CellState(h,5,1)
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
	var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()
MessageBox("Information",string( String(oComboBox.Export("","vis")) ))

590
Expandable-caption

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.TreeColumnIndex = -1
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.ShowFocusRect = false
oComboBox.SingleEdit = true
oComboBox.SearchColumnIndex = 1
oComboBox.AdjustSearchColumn = false
oComboBox.HeaderVisible = false
oComboBox.Columns.Add("Default")
oComboBox.Columns.Add("Select").Visible = false
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("before item"),1,"before")
	h = var_Items.AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
	var_Items.CellCaptionFormat(h,0,1)
	var_Items.CellSingleLine(h,0,false)
	var_Items.CellCaption(h,1,"Bank Account")
	var_Items.CellCaption(var_Items.AddItem("after item"),1,"after")
oComboBox.Select(1,"after")
oComboBox.EndUpdate()

591
Expandable-caption

/*begin event AnchorClick(string  AnchorID, string  Options) - Occurs when an anchor element is clicked.*/
/*
	oComboBox = ole_1.Object
	MessageBox("Information",string( String(AnchorID) ))
*/
/*end event AnchorClick*/

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Style = 0
oComboBox.TreeColumnIndex = -1
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.BackColorAlternate = RGB(240,240,240)
oComboBox.ShowFocusRect = false
oComboBox.SingleEdit = true
oComboBox.SearchColumnIndex = 1
oComboBox.AdjustSearchColumn = false
oComboBox.HeaderVisible = false
oComboBox.Columns.Add("Default")
oComboBox.Columns.Add("Select").Visible = false
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("before item"),1,"before")
	h = var_Items.AddItem("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Items.CellCaptionFormat(h,0,1)
	var_Items.CellSingleLine(h,0,false)
	var_Items.CellCaption(h,1,"Bank Account")
	var_Items.CellCaption(var_Items.AddItem("after item"),1,"after")
oComboBox.Select(1,"after")
oComboBox.EndUpdate()

468
Does your control supports scrolling by touching the screen

OleObject oComboBox,rs

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.DataSource = rs
oComboBox.ScrollBySingleLine = true
oComboBox.AutoDrag = 4112 /*exAutoDragScrollOnShortTouch | exAutoDragScroll*/
oComboBox.EndUpdate()

405
Does your control support RightToLeft property for RTL languages or right to left

OleObject oComboBox,var_Column,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oComboBox.RightToLeft = true
oComboBox.EndUpdate()

357
Does your control support prompt feature

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.AutoComplete = false
oComboBox.Columns.Add("Column 1").Prompt = "<img>1</img><i><fgcolor=808080>type to search</fgcolor></i>"
oComboBox.Items.AddItem(0)
oComboBox.Items.AddItem(1)
oComboBox.Items.AddItem(2)

22
Does your control support partial-check ( three states ) feature for each column

OleObject oComboBox,var_Column,var_Column1,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("P2")
	var_Column1.Def(0,true)
	var_Column1.PartialCheck = true
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)

565
Does your control support multiple-selection

OleObject oComboBox,var_Columns,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.Style = 2
oComboBox.SingleSel = false
oComboBox.SingleEdit = true
oComboBox.LabelColumnIndex = 0
var_Columns = oComboBox.Columns
	var_Columns.Add("Column")
	var_Columns.Add("Sub-Column")
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item 1"),1,"SubItem 1.1")
	var_Items.CellCaption(var_Items.AddItem("Item 2"),1,"SubItem 2.1")
	var_Items.CellCaption(var_Items.AddItem("Item 3"),1,"SubItem 3.1")
	var_Items.CellCaption(var_Items.AddItem("Item 4"),1,"SubItem 4.1")
	var_Items.SelectItem(var_Items.ItemByIndex(1),true)
	var_Items.SelectItem(var_Items.ItemByIndex(3),true)
oComboBox.EndUpdate()

352
Does you control support RTL languages or if there is a property RightToLeft

OleObject oComboBox,var_Column,var_Items

oComboBox = ole_1.Object
oComboBox.RightToLeft = true
oComboBox.ItemsAllowSizing = -1
oComboBox.DrawGridLines = 1
oComboBox.LinesAtRoot = -1
oComboBox.ScrollBySingleLine = true
oComboBox.DefaultItemHeight = 64
var_Column = oComboBox.Columns.Add("Column")
	var_Column.Alignment = 2
	var_Column.HeaderAlignment = 2
	var_Column.EditAlignment = 2
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.ItemHeight(var_Items.InsertItem(var_Items.AddItem("Parent"),,"Item 2"),48)
	var_Items.AddItem("Item 3")
	var_Items.ExpandItem(var_Items.ItemByIndex(1),true)

319
Does the tooltip support HTML format

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"

453
Does the control have the option to have a horizontal scroll to show entries which are longer than the display

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
oComboBox.Columns.Add("Default").Width = 512
var_Items = oComboBox.Items
	var_Items.AddItem("Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 1999. " + CHAR(34) + "eXontrol" + CHAR(34) + " comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site where you can try or buy our products. If you are tired of looking for " + CHAR(34) + "powerful" + CHAR(34) + " components now it's time to show you real components. No registration required, no nag screens, no limitations, unlimited evaluation time.")
	var_Items.AddItem("A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing the user either to type a value directly into the control or choose from the list of existing options.")
oComboBox.EndUpdate()

121
Do you have some function to retrieve all items to a safe array

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Items.AddItem(1)
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Items.AddItem(2)
oComboBox.PutItems(oComboBox.GetItems(0))
oComboBox.Items.AddItem(3)

122
Do you have some function to load data from a safe array

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Column")
oComboBox.Items.AddItem(0)
oComboBox.PutItems(oComboBox.GetItems(0))

548
Do do I get the DAO version I have installed
OleObject oComboBox

oComboBox = ole_1.Object
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("DAO.DBEngine.35")
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("DAO.DBEngine.36")
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("DAO.DBEngine.120")

546
Do do I get the ADO version I have installed
OleObject oComboBox

oComboBox = ole_1.Object
MessageBox("Information",string( "ADO Version:" ))
MessageBox("Information",string( CREATE OLEObject.Version ))
oItems.ConnectToNewObject("ADODB.Connection")

605
Displays the root item's index and value/caption using expressions

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_ConditionalFormat,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
oComboBox.AutoDrag = 3
oComboBox.SingleSel = false
oComboBox.DrawGridLines = -2
oComboBox.GridLineStyle = 48
oComboBox.ConditionalFormats.Add("%CC0 and %CX0").Bold = true
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.ApplyTo = 2 /*0x2 | */
var_Column = oComboBox.Columns.Add("Description")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Index")
	var_Column1.FormatColumn = "1 index ``"
	var_Column1.Position = 0
	var_Column1.Width = 16
var_Column2 = oComboBox.Columns.Add("Root-Index")
	var_Column2.FormatColumn = "root(1 index ``)"
	var_Column2.Position = 1
	var_Column2.Width = 32
	var_Column2.Def(4,15790320)
var_Column3 = oComboBox.Columns.Add("Root-Value")
	var_Column3.FormatColumn = "root(%0)"
	var_Column3.Position = 2
	var_Column3.Width = 32
	var_Column3.Def(4,15790320)
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
	var_Items.CellState(var_Items.InsertItem(h,,"Child 3"),0,1)
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()

604
Displays the parent item's index and caption/value using expressions

OleObject oComboBox,var_Column,var_Column1,var_Column2,var_Column3,var_ConditionalFormat,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
oComboBox.AutoDrag = 3
oComboBox.SingleSel = false
oComboBox.DrawGridLines = -2
oComboBox.GridLineStyle = 48
oComboBox.ConditionalFormats.Add("%CC0 and %CX0").Bold = true
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("1")
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.ApplyTo = 2 /*0x2 | */
var_Column = oComboBox.Columns.Add("Description")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Index")
	var_Column1.FormatColumn = "1 index `I`"
	var_Column1.Position = 0
	var_Column1.Width = 16
var_Column2 = oComboBox.Columns.Add("Parent-Index")
	var_Column2.FormatColumn = "parent(1 index `I`)"
	var_Column2.Position = 1
	var_Column2.Width = 32
	var_Column2.Def(4,15790320)
var_Column3 = oComboBox.Columns.Add("Parent-Value")
	var_Column3.FormatColumn = "parent(%0)"
	var_Column3.Position = 2
	var_Column3.Width = 32
	var_Column3.Def(4,15790320)
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
	var_Items.CellState(var_Items.InsertItem(h,,"Child 3"),0,1)
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()

601
Displays a glitch funnel for drop-down filter buttons (empty or active)

OleObject oComboBox,var_Appearance,var_Column,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.RenderType = -1
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZOiwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYReWAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=")
	var_Appearance.Add(2,"CP:1 -2 0 0 0")
oComboBox.DrawGridLines = -1
oComboBox.GridLineStyle = 512
oComboBox.ShowFocusRect = false
oComboBox.Background(0,33554432 /*0x2000000*/)
oComboBox.Background(41,33554433 /*0x2000001*/)
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.HeaderVisible = true
var_Column = oComboBox.Columns.Add("1st col")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.Filter = "Item B"
	var_Column.FilterType = 240
oComboBox.Columns.Add("2nd col")
var_Items = oComboBox.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

587
Display a custom tooltip
/*begin event MouseMove(integer  Button, integer  Shift, long  X, long  Y) - Occurs when the user moves the mouse.*/
/*
	oComboBox = ole_1.Object
	oComboBox.ShowToolTip(String(oComboBox.ColumnFromPoint(-1,-1)),"",,"+8","+8")
*/
/*end event MouseMove*/

OleObject oComboBox

oComboBox = ole_1.Object

592
Disable temporarily the column's sort, resize and drag and drop

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.SortBarVisible = true
oComboBox.SortBarCaption = "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
oComboBox.HeaderEnabled = false
oComboBox.HeaderAppearance = 4
oComboBox.Columns.Add("Index").FormatColumn = "1 index ``"
oComboBox.Columns.Add("Pos").FormatColumn = "1 apos ``"
oComboBox.Columns.Add("Edit")
oComboBox.GridLineStyle = 512
oComboBox.DrawGridLines = 2
oComboBox.EndUpdate()

588
Disable hover-all feature (Windows 11 or greater)
OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Background(500,RGB(1,0,0))

602
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Country").ShowIdem = " "
var_Items = oComboBox.Items
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
oComboBox.EndUpdate()

603
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Country").ShowIdem = "<fgcolor gray>〃"
var_Items = oComboBox.Items
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Spain")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
	var_Items.AddItem("Germany")
oComboBox.EndUpdate()

544
DAO, MDB, 120

OleObject oComboBox,rs,var_PrivDBEngine

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

543
DAO, MDB

OleObject oComboBox,rs,var_PrivDBEngine

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.36")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

545
DAO, ACCDB, 120

OleObject oComboBox,rs,var_PrivDBEngine

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
var_PrivDBEngine = CREATE OLEObject
var_PrivDBEngine.ConnectToNewObject("DAO.DBEngine.120")
	rs = var_PrivDBEngine.OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

582
Change the clear-button appearance

OleObject oComboBox,var_Appearance,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Appearance = oComboBox.VisualAppearance
	var_Appearance.Add(1,"XP:Window 19 1")
	var_Appearance.Add(2,"XP:Window 19 3")
oComboBox.Background(190,16777216 /*0x1000000*/)
oComboBox.Background(191,33554432 /*0x2000000*/)
oComboBox.Style = 2
oComboBox.HeaderVisible = false
oComboBox.IntegralHeight = true
oComboBox.ShowClearButton = 1
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.AddItem("Zero")
	var_Items.AddItem("One")
	var_Items.AddItem("Two")
oComboBox.Select(0,"Zero")
oComboBox.EndUpdate()

150
Can I use your EBN files to change the visual appearance for radio buttons

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.RadioImage(false,16777216)
oComboBox.RadioImage(true,33554432)
oComboBox.Columns.Add("Radio").Def(1,true)
var_Items = oComboBox.Items
	var_Items.AddItem("Radio 1")
	var_Items.CellState(var_Items.AddItem("Radio 2"),0,1)
	var_Items.AddItem("Radio 3")

149
Can I use your EBN files to change the visual appearance for checkbox cells

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.CheckImage(0,16777216)
oComboBox.CheckImage(1,33554432)
oComboBox.Columns.Add("Check").Def(0,true)
var_Items = oComboBox.Items
	var_Items.AddItem("Check 1")
	var_Items.CellState(var_Items.AddItem("Check 2"),0,1)

151
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oComboBox.LinesAtRoot = 1
oComboBox.HasButtons = 4
oComboBox.HasButtonsCustom(false,16777216)
oComboBox.HasButtonsCustom(true,33554432)
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")

52
Can I use my own icons for the +/- ( expand/collapse ) buttons

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.LinesAtRoot = 1
oComboBox.HasButtons = 4
oComboBox.HasButtonsCustom(false,1)
oComboBox.HasButtonsCustom(true,2)
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")

428
Can I specify an item to be a separator

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.TreeColumnIndex = -1
oComboBox.SortOnClick = 0
oComboBox.Columns.Add("Numbers")
var_Items = oComboBox.Items
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	h = var_Items.AddItem("separator")
	var_Items.SelectableItem(h,false)
	var_Items.ItemDivider(h,0)
	var_Items.ItemDividerLineAlignment(h,1)
	var_Items.ItemDividerLine(h,5)
	var_Items.CellHAlignment(h,0,1)
	var_Items.AddItem(3)
	var_Items.AddItem(4)
oComboBox.EndUpdate()

430
Can I specify a terminal item so it will mark the end of childs

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ScrollBySingleLine = true
oComboBox.Columns.Add("P1")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.InsertItem(h,"","")
	var_Items.ItemDivider(h,0)
	var_Items.ItemDividerLineAlignment(h,1)
	var_Items.ItemHeight(h,2)
	var_Items.SelectableItem(h,false)
	var_Items.SortableItem(h,false)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.InsertItem(h,"","")
	var_Items.ItemDivider(h,0)
	var_Items.ItemDividerLineAlignment(h,1)
	var_Items.ItemHeight(h,2)
	var_Items.SelectableItem(h,false)
	var_Items.SortableItem(h,false)
oComboBox.EndUpdate()

556
Can I sort the column by image

OleObject oComboBox,var_Column,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oComboBox.Columns.Add("Image")
	var_Column.SortType = 48
var_Items = oComboBox.Items
	var_Items.CellImage(var_Items.AddItem(),0,3)
	var_Items.AddItem()
	var_Items.CellImage(var_Items.AddItem(),0,1)
	var_Items.CellImage(var_Items.AddItem(),0,2)
oComboBox.Columns.Item(0).SortOrder = 1
oComboBox.EndUpdate()

557
Can I sort the column by check-state

OleObject oComboBox,var_Column,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
var_Column = oComboBox.Columns.Add("Check")
	var_Column.Def(0,true)
	var_Column.SortType = 32
var_Items = oComboBox.Items
	var_Items.AddItem()
	var_Items.CellState(var_Items.AddItem(),0,1)
	var_Items.CellState(var_Items.AddItem(),0,1)
	var_Items.AddItem()
oComboBox.Columns.Item(0).SortOrder = 1
oComboBox.EndUpdate()

599
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
OleObject oComboBox,var_Column,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
var_Column = oComboBox.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = true
	var_Column.Def(21,"*<%filter%>*")
	var_Column.FilterType = 3
	var_Column.Filter = "1"
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oComboBox.ApplyFilter()
oComboBox.EndUpdate()

311
Can I remove the line being displayed by a divider item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.MarkSearchColumn = false
oComboBox.TreeColumnIndex = -1
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellCaption(h,1,"This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
	var_Items.CellSingleLine(h,1,false)
	h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
	var_Items.ItemDivider(h,0)
	var_Items.ItemDividerLine(h,0)
	var_Items.CellHAlignment(h,0,1)

34
Can I remove the "All", "Blanks" and "NonBlanks" items in the drop down filter window

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Column").DisplayFilterButton = true
oComboBox.Description(0,"")
oComboBox.Description(1,"")
oComboBox.Description(2,"")

31
Can I make strikeout the column's header

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Column 1").HeaderStrikeOut = true

573
Can I limit the number of characters the user can type into, similar with text-box's MaxLength property
OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Max 2 chars").EditMaxLength = 2
oComboBox.AutoSearch = false
oComboBox.AutoComplete = false

290
Can I let the user to resize at runtime the specified item

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.ScrollBySingleLine = true
oComboBox.DrawGridLines = -2
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.ItemAllowSizing(var_Items.AddItem("resizable item"),true)
	var_Items.AddItem("not resizable item")

54
Can I hide the hierarchy lines

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = 1
oComboBox.HasLines = 0
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")

401
Can I have an image displayed after the text. Can I get that effect without using HTML content

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column").Def(34,"caption,icon,check,icons,picture")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Text")
	var_Items.CellImage(h,0,1)

42
Can I filter for values using OR - NOT , instead AND operator

OleObject oComboBox,var_Column,var_Column1,var_Column2

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterType = 1
var_Column2 = oComboBox.Columns.Add("Column 3")
	var_Column2.DisplayFilterButton = true
	var_Column2.FilterType = 1
oComboBox.FilterCriteria = "%0 or not %1 and %2"
oComboBox.ApplyFilter()

8
Can I displays a custom size picture to column's header

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oComboBox.HeaderHeight = 48
oComboBox.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"

403
Can I display the cell's check box after the text

OleObject oComboBox,var_Column,var_Items

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
	var_Column.Def(0,true)
	var_Column.Def(34,"caption,check")
var_Items = oComboBox.Items
	var_Items.CellHasCheckBox(var_Items.AddItem("Caption 1"),0,true)
	var_Items.CellHasCheckBox(var_Items.AddItem("Caption 2"),0,true)

371
Can I display the absolute value or positive part of the number

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Number")
oComboBox.Columns.Add("Abs").ComputedField = "abs(%0)"
var_Items = oComboBox.Items
	var_Items.AddItem("-1.98")
	var_Items.AddItem("0.99")
	var_Items.AddItem("1.23")
	var_Items.AddItem("2.34")

19
Can I display multiple icons to the column's header

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column 1").HTMLCaption = "1<img>1</img> 2 <img>2</img>..."

161
Can I display an additional buttons in the scroll bar

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ScrollPartVisible(1,32768,true)
oComboBox.ScrollPartVisible(1,16384,true)
oComboBox.ScrollPartVisible(1,1,true)
oComboBox.ScrollPartVisible(1,2,true)

209
Can I display a computed column so it displays the VAT, or SUM

OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.Columns.Add("A")
oComboBox.Columns.Add("B")
oComboBox.Columns.Add("(A+B)*1.19").ComputedField = "(%0 + %1) * 1.19"
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem(1),1,2)
var_Items1 = oComboBox.Items
	var_Items1.CellCaption(var_Items1.AddItem(10),1,20)

285
Can I display a button with some picture or icon inside

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.HTMLPicture("p1","c:\exontrol\images\zipdisk.gif")
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellCaption(h,1," Button <img>p1</img> ")
	var_Items.CellCaptionFormat(h,1,1)
	var_Items.CellHAlignment(h,1,2)
	var_Items.CellHasButton(h,1,true)
	var_Items.ItemHeight(h,48)

284
Can I display a button with some picture or icon inside

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellCaption(h,1," Button <img>1</img> ")
	var_Items.CellCaptionFormat(h,1,1)
	var_Items.CellHAlignment(h,1,2)
	var_Items.CellHasButton(h,1,true)

283
Can I display a button with some icon inside

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellCaption(h,1," <img>1</img> ")
	var_Items.CellCaptionFormat(h,1,1)
	var_Items.CellHAlignment(h,1,2)
	var_Items.CellHasButton(h,1,true)

10
Can I disable sorting a column, when the user clicks the column's header, or drag it to the sort bar

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Unsortable").AllowSort = false
oComboBox.Columns.Add("Sortable")

567
Can I customize the count of selected items, shown on the right side of the control's label (multiple-selection)

OleObject oComboBox,var_Columns,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.Style = 2
oComboBox.SingleSel = false
oComboBox.SingleEdit = true
oComboBox.LabelColumnIndex = 0
oComboBox.SelBackColor = RGB(51,153,255)
oComboBox.SelForeColor = RGB(255,255,255)
oComboBox.LabelText = "<bgcolor=3399FF><fgcolor=FFFFFF> %c </fgcolor></bgcolor>"
var_Columns = oComboBox.Columns
	var_Columns.Add("Column")
	var_Columns.Add("Sub-Column")
var_Items = oComboBox.Items
	var_Items.CellCaption(var_Items.AddItem("Item 1"),1,"SubItem 1.1")
	var_Items.CellCaption(var_Items.AddItem("Item 2"),1,"SubItem 2.1")
	var_Items.CellCaption(var_Items.AddItem("Item 3"),1,"SubItem 3.1")
	var_Items.CellCaption(var_Items.AddItem("Item 4"),1,"SubItem 4.1")
	var_Items.SelectItem(var_Items.ItemByIndex(1),true)
	var_Items.SelectItem(var_Items.ItemByIndex(3),true)
oComboBox.EndUpdate()

378
Can I convert the expression to date

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Number")
oComboBox.Columns.Add("Date").ComputedField = "date(dbl(%0))"
var_Items = oComboBox.Items
	var_Items.AddItem("-1.98")
	var_Items.AddItem("30000.99")
	var_Items.AddItem("3561.23")
	var_Items.AddItem("1232.34")

377
Can I convert the expression to a number, double or float

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("Number")
oComboBox.Columns.Add("Number + 2").ComputedField = "dbl(%0)+2"
var_Items = oComboBox.Items
	var_Items.AddItem("-1.98")
	var_Items.AddItem("0.99")
	var_Items.AddItem("1.23")
	var_Items.AddItem("2.34")

174
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.FormatAnchor(false,"<b><u><fgcolor=880000> </fgcolor></u></b>")
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.CellCaptionFormat(var_Items.AddItem("Just an <a1>anchor</a> element ..."),0,1)
var_Items1 = oComboBox.Items
	var_Items1.CellCaptionFormat(var_Items1.AddItem("Just another <a2>anchor</a> element ..."),0,1)
oComboBox.Items.AddItem("next item")

173
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

OleObject oComboBox,var_Items,var_Items1

oComboBox = ole_1.Object
oComboBox.FormatAnchor(true,"<b><u><fgcolor=FF0000> </fgcolor></u></b>")
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	var_Items.CellCaptionFormat(var_Items.AddItem("Just an <a1>anchor</a> element ..."),0,1)
var_Items1 = oComboBox.Items
	var_Items1.CellCaptionFormat(var_Items1.AddItem("Just another <a2>anchor</a> element ..."),0,1)

53
Can I change the style or type for the hierarchy lines

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = 1
oComboBox.HasLines = 2
oComboBox.Columns.Add("Column")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")

312
Can I change the style of the line being displayed by a divider item

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.MarkSearchColumn = false
oComboBox.TreeColumnIndex = -1
oComboBox.ScrollBySingleLine = false
oComboBox.Columns.Add("C1")
oComboBox.Columns.Add("C2")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellCaption(h,1,"This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
	var_Items.CellSingleLine(h,1,false)
	h = var_Items.AddItem("This is bit of text that's displayed on the entire item, divider.")
	var_Items.ItemDivider(h,0)
	var_Items.ItemDividerLine(h,4)
	var_Items.CellHAlignment(h,0,1)
	var_Items.ItemHeight(h,24)

402
Can I change the order of the parts in the cell, as checkbox after the text, and so on

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oComboBox.Columns.Add("Column").Def(34,"caption,check,icon,icons,picture")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Text")
	var_Items.CellImage(h,0,1)
	var_Items.CellHasCheckBox(h,0,true)

170
Can I change the order of the buttons in the scroll bar

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ScrollOrderParts(1,"t,l,r")
oComboBox.ScrollOrderParts(0,"t,l,r")

39
Can I change the OR string in the filter bar

OleObject oComboBox,var_Column,var_Column1

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterType = 2
oComboBox.FilterCriteria = "%0 or %1"
oComboBox.Description(23," | ")
oComboBox.ApplyFilter()

41
Can I change the NOT string in the filter bar

OleObject oComboBox,var_Column,var_Column1

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterType = 2
oComboBox.FilterCriteria = "not %0 or %1"
oComboBox.Description(24," ! ")
oComboBox.Description(10," ! IsBlank")
oComboBox.ApplyFilter()

20
Can I change the height of the header bar

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.HeaderHeight = 32

317
Can I change the foreground color for the tooltip

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"

318
Can I change the forecolor for the tooltip

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Background(66,RGB(255,0,0))
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"

21
Can I change the font to display the column's header

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.HeaderHeight = 34
oComboBox.Columns.Add("Column 1").HTMLCaption = "<font Tahoma;14>Column</font> 1"

171
Can I change the font for the tooltip

OleObject oComboBox,var_StdFont

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
var_StdFont = oComboBox.ToolTipFont
	var_StdFont.Name = "Tahoma"
	var_StdFont.Size = 14
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"

172
Can I change the font for the tooltip

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Columns.Add("tootip").ToolTip = "<br><font Tahoma;14>this</font> is a tooltip assigned to a column<br>"

321
Can I change the default border of the tooltip, using your EBN files

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.Background(64,16777216 /*0x1000000*/)
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"

320
Can I change the background color for the tooltip

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipDelay = 1
oComboBox.ToolTipWidth = 364
oComboBox.Background(65,RGB(255,0,0))
oComboBox.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"

362
Can I change the background color for items or cells that contains a specified string

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.ConditionalFormats.Add("%0 contains 'hi'").BackColor = RGB(255,0,0)
oComboBox.Columns.Add("")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Chld 3")
	var_Items.ExpandItem(h,true)

38
Can I change the AND string in the filter bar

OleObject oComboBox,var_Column,var_Column1

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column 1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 1
var_Column1 = oComboBox.Columns.Add("Column 2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterType = 2
oComboBox.Description(11," & ")
oComboBox.ApplyFilter()

46
Can I change the "Today" caption being displayed in the drop down calendar, when I filter for dates

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterDate = true
oComboBox.Description(16,"Azi")
oComboBox.ApplyFilter()

43
Can I change the "Date:" caption when the column's drop down filter window is shown

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterDate = true
oComboBox.Description(12,"Range")
oComboBox.ApplyFilter()

536
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
oComboBox.Columns.Add("Default").Width = 128
var_Items = oComboBox.Items
	var_Items.CellSingleLine(var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,1)
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oComboBox.EndUpdate()

535
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

OleObject oComboBox,var_Column,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.DrawGridLines = -2
oComboBox.ColumnAutoResize = false
oComboBox.ScrollBySingleLine = true
var_Column = oComboBox.Columns.Add("Default")
	var_Column.Width = 128
	var_Column.Def(16,1)
var_Items = oComboBox.Items
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oComboBox.EndUpdate()

105
Can I apply an EBN skin to the control's filter bar so I can change its visual appearance

OleObject oComboBox,var_Column

oComboBox = ole_1.Object
oComboBox.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oComboBox.FilterBarBackColor = 16777216 /*0x1000000*/
var_Column = oComboBox.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.FilterType = 1
oComboBox.ApplyFilter()

431
Can I allow sorting only the child items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.Columns.Add("Childs")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.SortableItem(h,false)
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.SortableItem(h,false)
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oComboBox.EndUpdate()

291
Can I add a +/- ( expand / collapse ) buttons to each item, so I can load the child items later

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.LinesAtRoot = -1
oComboBox.Columns.Add("Default")
var_Items = oComboBox.Items
	var_Items.ItemHasChildren(var_Items.AddItem("parent item with no child items"),true)
	var_Items.AddItem("next item")

187
By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.Columns.Add("Sort").DefaultSortOrder = true

75
By default, the column gets sorted as strings, so how do I sort a column by time only

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 4
var_Items = oComboBox.Items
	var_Items.AddItem("11:00")
	var_Items.AddItem("10:10")
	var_Items.AddItem("12:12")
	var_Items.SortChildren(0,0,false)

73
By default, the column gets sorted as strings, so how do I sort a column by dates

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 2
var_Items = oComboBox.Items
	var_Items.AddItem("1/1/2001")
	var_Items.AddItem("1/2/2002")
	var_Items.AddItem("1/3/2003")
	var_Items.SortChildren(0,0,false)

74
By default, the column gets sorted as strings, so how do I sort a column by date and time

OleObject oComboBox,var_Items

oComboBox = ole_1.Object
oComboBox.Columns.Add("desc").SortType = 3
var_Items = oComboBox.Items
	var_Items.AddItem("1/1/2001 11:00")
	var_Items.AddItem("1/1/2001 10:10")
	var_Items.AddItem("1/3/2003")
	var_Items.SortChildren(0,0,false)

606
Bolds only the expanded items

OleObject oComboBox,var_Items
any h

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.HeaderAppearance = 4
oComboBox.HeaderHeight = 24
oComboBox.LinesAtRoot = -1
oComboBox.ConditionalFormats.Add("%CX0").Bold = true
oComboBox.Columns.Add("Description")
var_Items = oComboBox.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"Sub-Child 2")
	var_Items.CellState(var_Items.InsertItem(h,,"Child 3"),0,1)
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
oComboBox.EndUpdate()

593
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
/*begin event MouseMove(integer  Button, integer  Shift, long  X, long  Y) - Occurs when the user moves the mouse.*/
/*
	oComboBox = ole_1.Object
	oComboBox.ShowToolTip("new content","",,"+8","+8")
*/
/*end event MouseMove*/

OleObject oComboBox

oComboBox = ole_1.Object
oComboBox.ToolTipMargin = "16,8"

539
ADOR, MDB

OleObject oComboBox,rs

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

541
ADOR, ACCDB

OleObject oComboBox,rs

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

540
ADODB, MDB

OleObject oComboBox,rs

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb",3,3)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

542
ADODB, ACCDB, x64

OleObject oComboBox,rs

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
oComboBox.DataSource = rs
oComboBox.Value = 10248
oComboBox.EndUpdate()

531
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

OleObject oComboBox,var_Column,var_Column1,var_ConditionalFormat,var_Items

oComboBox = ole_1.Object
oComboBox.BeginUpdate()
oComboBox.ColumnAutoResize = true
oComboBox.DefaultItemHeight = 20
oComboBox.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
var_Column = oComboBox.Columns.Add("Default")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oComboBox.Columns.Add("Position")
	var_Column1.FormatColumn = "1 rindex ``"
	var_Column1.Visible = false
var_ConditionalFormat = oComboBox.ConditionalFormats.Add("%C1 mod 2")
	var_ConditionalFormat.BackColor = 16777216 /*0x1000000*/
var_Items = oComboBox.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
oComboBox.EndUpdate()